home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_100 / 197_01 / menu.cmd < prev    next >
Encoding:
Text File  |  1980-01-01  |  12.4 KB  |  630 lines
  1. ;    MENU.CMD:    Menu learning system for MicroEMACS 3.7
  2. ;
  3. ;            This file is executed to activate MicroEMACS's
  4. ;            menu interface code
  5.  
  6. ;    setup windows for use
  7.  
  8.     add-global-mode "blue"
  9.     1 split-current-window
  10.     5 resize-window
  11.     add-mode "red"
  12.     view-file "menu1"
  13.     name-buffer "menu window"
  14.     change-file-name ""
  15.     add-mode "view"
  16.     next-window
  17.  
  18. ;    Load menu routines as needed
  19.  
  20. ;    Activate Main Menu
  21.  
  22. 1    store-macro
  23.     save-window
  24.     1 next-window
  25.     beginning-of-file
  26.     search-forward "<<01"
  27.     next-line
  28.     1 redraw-display
  29.     restore-window
  30.     update-screen
  31.  
  32. ;    ***** Rebind the Function key group
  33.  
  34.     bind-to-key execute-macro-3    FN;
  35.     bind-to-key execute-macro-4    FN<
  36.     bind-to-key execute-macro-5    FN=
  37.     bind-to-key execute-macro-6    FN>
  38.     bind-to-key execute-macro-7    FN?
  39.     bind-to-key execute-macro-8    FN@
  40.     bind-to-key execute-macro-9    FNA
  41.     bind-to-key execute-macro-2    FNB
  42.     bind-to-key execute-macro-10    FNC
  43.     bind-to-key exit-emacs        FND
  44.     clear-message-line
  45. !endm
  46.  
  47. ;    and bring that menu up
  48.  
  49.     execute-macro-1
  50.     write-message "         [loading MENU system]"
  51.  
  52. ;    set up the editor control menu
  53.  
  54. 2    store-macro
  55.     save-window
  56.     1 next-window
  57.     beginning-of-file
  58.     search-forward "<<02"
  59.     next-line
  60.     1 redraw-display
  61.     restore-window
  62.     update-screen
  63.  
  64. ;    ***** Rebind the Function key group
  65.  
  66.     bind-to-key execute-macro-11    FN;
  67.     bind-to-key execute-macro-12    FN<
  68.     bind-to-key execute-macro-13    FN=
  69.     bind-to-key execute-macro-14    FN>
  70.     bind-to-key execute-macro-15    FN?
  71.     bind-to-key execute-macro-16    FN@
  72.     bind-to-key execute-macro-17    FNA
  73.     bind-to-key execute-macro-18    FNB
  74.     bind-to-key execute-macro-19    FNC
  75.     bind-to-key execute-macro-1    FND
  76.     clear-message-line
  77. !endm
  78.  
  79. ;    Activate word case/screen control Menu
  80.  
  81. 3    store-macro
  82.     save-window
  83.     1 next-window
  84.     beginning-of-file
  85.     search-forward "<<03"
  86.     next-line
  87.     1 redraw-display
  88.     restore-window
  89.     update-screen
  90.  
  91. ;    ***** Rebind the Function key group
  92.  
  93.     bind-to-key case-word-upper    FN;
  94.     bind-to-key case-region-upper    FN<
  95.     bind-to-key case-word-lower    FN=
  96.     bind-to-key case-region-lower    FN>
  97.     bind-to-key case-word-capitalize FN?
  98.     unbind-key FN@
  99.     bind-to-key clear-and-redraw    FNA
  100.     bind-to-key set-mark        FNB
  101.     bind-to-key redraw-display    FNC
  102.     bind-to-key execute-macro-1    FND
  103.     clear-message-line
  104. !endm
  105.  
  106. ;    Activate paging/scrolling Menu
  107.  
  108. 4    store-macro
  109.     save-window
  110.     1 next-window
  111.     beginning-of-file
  112.     search-forward "<<08"
  113.     next-line
  114.     1 redraw-display
  115.     restore-window
  116.     update-screen
  117.  
  118. ;    ***** Rebind the Function key group
  119.  
  120.     bind-to-key previous-page    FN;
  121.     bind-to-key next-page        FN<
  122.     bind-to-key move-window-down    FN=
  123.     bind-to-key move-window-up    FN>
  124.     bind-to-key scroll-next-up    FN?
  125.     unbind-key             FN@
  126.     bind-to-key scroll-next-down    FNA
  127.     unbind-key             FNB
  128.     bind-to-key exchange-point-and-mark FNC
  129.     bind-to-key execute-macro-1    FND
  130.     clear-message-line
  131. !endm
  132.  
  133. ;    Activate cut & paste Menu
  134.  
  135. 5    store-macro
  136.     save-window
  137.     1 next-window
  138.     beginning-of-file
  139.     search-forward "<<04"
  140.     next-line
  141.     1 redraw-display
  142.     restore-window
  143.     update-screen
  144.  
  145. ;    ***** Rebind the Function key group
  146.  
  147.     bind-to-key set-mark        FN;
  148.     unbind-key FN<
  149.     bind-to-key kill-region        FN=
  150.     unbind-key FN>
  151.     bind-to-key copy-region        FN?
  152.     unbind-key FN@
  153.     bind-to-key yank        FNA
  154.     unbind-key FNB
  155.     unbind-key FNC
  156.     bind-to-key execute-macro-1    FND
  157.     clear-message-line
  158. !endm
  159.  
  160. ;    Activate Search & replace Menu
  161.  
  162. 6    store-macro
  163.     save-window
  164.     1 next-window
  165.     beginning-of-file
  166.     search-forward "<<09"
  167.     next-line
  168.     1 redraw-display
  169.     restore-window
  170.     update-screen
  171.  
  172. ;    ***** Rebind the Function key group
  173.  
  174.     bind-to-key search-forward    FN;
  175.     bind-to-key search-reverse    FN<
  176.     bind-to-key hunt-forward    FN=
  177.     bind-to-key hunt-backward    FN>
  178.     bind-to-key incremental-search    FN?
  179.     bind-to-key reverse-incremental-search FN@
  180.     bind-to-key replace-string    FNA
  181.     bind-to-key query-replace-string FNB
  182.     unbind-key FNC
  183.     bind-to-key execute-macro-1    FND
  184.     clear-message-line
  185. !endm
  186.  
  187. ;    Activate Deletion Menu
  188.  
  189. 7    store-macro
  190.     save-window
  191.     1 next-window
  192.     beginning-of-file
  193.     search-forward "<<05"
  194.     next-line
  195.     1 redraw-display
  196.     restore-window
  197.     update-screen
  198.  
  199. ;    ***** Rebind the Function key group
  200.  
  201.     bind-to-key delete-previous-character FN;
  202.     unbind-key FN<
  203.     bind-to-key delete-next-character FN=
  204.     unbind-key FN>
  205.     bind-to-key kill-to-end-of-line    FN?
  206.     unbind-key FN@
  207.     bind-to-key delete-blank-lines    FNA
  208.     unbind-key FNB
  209.     unbind-key FNC
  210.     bind-to-key execute-macro-1    FND
  211.     clear-message-line
  212. !endm
  213.  
  214. ;    Activate Word procesing Menu
  215.  
  216. 8    store-macro
  217.     save-window
  218.     1 next-window
  219.     beginning-of-file
  220.     search-forward "<<10"
  221.     next-line
  222.     1 redraw-display
  223.     restore-window
  224.     update-screen
  225.  
  226. ;    ***** Rebind the Function key group
  227.  
  228.     bind-to-key previous-word    FN;
  229.     bind-to-key next-word        FN<
  230.     bind-to-key previous-paragraph    FN=
  231.     bind-to-key next-paragraph    FN>
  232.     bind-to-key fill-paragraph    FN?
  233.     bind-to-key kill-paragraph    FN@
  234.     bind-to-key delete-previous-word FNA
  235.     bind-to-key delete-next-word    FNB
  236.     bind-to-key count-words        FNC
  237.     bind-to-key execute-macro-1    FND
  238.     clear-message-line
  239. !endm
  240.  
  241. ;    Activate Insertion Menu
  242.  
  243. 9    store-macro
  244.     save-window
  245.     1 next-window
  246.     beginning-of-file
  247.     search-forward "<<06"
  248.     next-line
  249.     1 redraw-display
  250.     restore-window
  251.     update-screen
  252.  
  253. ;    ***** Rebind the Function key group
  254.  
  255.     bind-to-key open-line        FN;
  256.     bind-to-key insert-string    FN<
  257.     bind-to-key handle-tab        FN=
  258.     bind-to-key quote-character    FN>
  259.     bind-to-key insert-space    FN?
  260.     bind-to-key transpose-characters FN@
  261.     bind-to-key newline-and-indent    FNA
  262.     unbind-key FNB
  263.     bind-to-key newline        FNC
  264.     bind-to-key execute-macro-1    FND
  265.     clear-message-line
  266. !endm
  267.  
  268. ;    Activate Cursor movement Menu
  269.  
  270. 10    store-macro
  271.     save-window
  272.     1 next-window
  273.     beginning-of-file
  274.     search-forward "<<07"
  275.     next-line
  276.     1 redraw-display
  277.     restore-window
  278.     update-screen
  279.  
  280. ;    ***** Rebind the Function key group
  281.  
  282.     bind-to-key beginning-of-file    FN;
  283.     bind-to-key previous-line    FN<
  284.     bind-to-key backward-character    FN=
  285.     bind-to-key forward-character    FN>
  286.     bind-to-key end-of-file        FN?
  287.     bind-to-key next-line        FN@
  288.     bind-to-key beginning-of-line    FNA
  289.     bind-to-key end-of-line        FNB
  290.     bind-to-key execute-macro-21    FNC
  291.     bind-to-key execute-macro-1    FND
  292.     clear-message-line
  293. !endm
  294.  
  295. 21    store-macro
  296.     @"Line number to go to: " goto-line
  297. !endm
  298.  
  299. ;    Activate Buffer Menu
  300.  
  301. 11    store-macro
  302.     save-window
  303.     1 next-window
  304.     beginning-of-file
  305.     search-forward "<<11"
  306.     next-line
  307.     1 redraw-display
  308.     restore-window
  309.     update-screen
  310.  
  311. ;    ***** Rebind the Function key group
  312.  
  313.     bind-to-key buffer-position    FN;
  314.     bind-to-key unmark-buffer    FN<
  315.     bind-to-key delete-buffer    FN=
  316.     bind-to-key next-buffer        FN>
  317.     bind-to-key list-buffers    FN?
  318.     bind-to-key execute-macro-22    FN@
  319.     bind-to-key name-buffer        FNA
  320.     unbind-key FNB
  321.     bind-to-key select-buffer    FNC
  322.     bind-to-key execute-macro-2    FND
  323.     clear-message-line
  324. !endm
  325.  
  326. 22    store-macro
  327.     filter-buffer @"Name of DOS filter: "
  328. !endm
  329. ;    Macro Menu
  330.  
  331. 12    store-macro
  332.     save-window
  333.     1 next-window
  334.     beginning-of-file
  335.     search-forward "<<11"
  336.     next-line
  337.     1 redraw-display
  338.     restore-window
  339.     update-screen
  340.  
  341. ;    ***** Rebind the Function key group
  342.  
  343.     bind-to-key begin-macro        FN;
  344.     unbind-key FN<
  345.     bind-to-key end-macro        FN=
  346.     unbind-key FN>
  347.     bind-to-key execute-macro    FN?
  348.     unbind-key FN@
  349.     unbind-key FNA
  350.     unbind-key FNB
  351.     unbind-key FNC
  352.     bind-to-key execute-macro-2    FND
  353.     clear-message-line
  354. !endm
  355.  
  356. ;    Color change Menu
  357.  
  358. 13    store-macro
  359.     save-window
  360.     1 next-window
  361.     beginning-of-file
  362.     search-forward "<<12"
  363.     next-line
  364.     1 redraw-display
  365.     restore-window
  366.     update-screen
  367.  
  368. ;    ***** Rebind the Function key group
  369.  
  370.     bind-to-key execute-macro-23    FN;
  371.     unbind-key FN<
  372.     bind-to-key execute-macro-24    FN=
  373.     unbind-key FN>
  374.     bind-to-key execute-macro-25    FN?
  375.     unbind-key FN@
  376.     bind-to-key execute-macro-26    FNA
  377.     unbind-key FNB
  378.     unbind-key FNC
  379.     bind-to-key execute-macro-2    FND
  380.     clear-message-line
  381. !endm
  382.  
  383. ;    Set forground color
  384.  
  385. 23    store-macro
  386.     save-window
  387.     1 next-window
  388.     select-buffer "[color]"
  389.     beginning-of-file
  390.     insert-string @"Color to change to: "
  391.     newline
  392.     beginning-of-file
  393.     case-word-upper
  394.     beginning-of-file
  395.     unmark-buffer
  396.     select-buffer "menu window"
  397.     1 redraw-display
  398.     restore-window
  399.     add-mode #"[color]"
  400.     delete-buffer "[color]"
  401. !endm
  402.  
  403. ;    Set background color
  404.  
  405. 24    store-macro
  406.     save-window
  407.     1 next-window
  408.     select-buffer "[color]"
  409.     beginning-of-file
  410.     insert-string @"Color to change to: "
  411.     newline
  412.     beginning-of-file
  413.     case-word-lower
  414.     beginning-of-file
  415.     unmark-buffer
  416.     select-buffer "menu window"
  417.     1 redraw-display
  418.     restore-window
  419.     add-mode #"[color]"
  420.     delete-buffer "[color]"
  421. !endm
  422.  
  423. ;    Set global forground color
  424.  
  425. 25    store-macro
  426.     save-window
  427.     1 next-window
  428.     select-buffer "[color]"
  429.     beginning-of-file
  430.     insert-string @"Color to change to: "
  431.     newline
  432.     beginning-of-file
  433.     case-word-upper
  434.     beginning-of-file
  435.     unmark-buffer
  436.     select-buffer "menu window"
  437.     1 redraw-display
  438.     restore-window
  439.     add-global-mode #"[color]"
  440.     delete-buffer "[color]"
  441. !endm
  442.  
  443. ;    Set global background color
  444.  
  445. 26    store-macro
  446.     save-window
  447.     1 next-window
  448.     select-buffer "[color]"
  449.     beginning-of-file
  450.     insert-string @"Color to change to: "
  451.     newline
  452.     beginning-of-file
  453.     case-word-lower
  454.     beginning-of-file
  455.     unmark-buffer
  456.     select-buffer "menu window"
  457.     1 redraw-display
  458.     restore-window
  459.     add-global-mode #"[color]"
  460.     delete-buffer "[color]"
  461. !endm
  462.  
  463. ;    set Mode Menu
  464.  
  465. 14    store-macro
  466.     save-window
  467.     1 next-window
  468.     beginning-of-file
  469.     search-forward "<<17"
  470.     next-line
  471.     1 redraw-display
  472.     restore-window
  473.     update-screen
  474.  
  475. ;    ***** Rebind the Function key group
  476.  
  477.     bind-to-key add-mode        FN;
  478.     bind-to-key add-global-mode    FN<
  479.     bind-to-key delete-mode        FN=
  480.     bind-to-key delete-global-mode    FN>
  481.     unbind-key FN?
  482.     bind-to-key execute-macro-27    FN@
  483.     unbind-key FNA
  484.     unbind-key FNB
  485.     bind-to-key select-buffer    FNC
  486.     bind-to-key execute-macro-2    FND
  487.     clear-message-line
  488. !endm
  489.  
  490. 27    store-macro
  491.     @"Column to fill to: " set-fill-column
  492. !endm
  493.  
  494. ;    DOS command Menu
  495.  
  496. 15    store-macro
  497.     save-window
  498.     1 next-window
  499.     beginning-of-file
  500.     search-forward "<<13"
  501.     next-line
  502.     1 redraw-display
  503.     restore-window
  504.     update-screen
  505.  
  506. ;    ***** Rebind the Function key group
  507.  
  508.     bind-to-key shell-command    FN;
  509.     unbind-key FN<
  510.     bind-to-key pipe-command    FN=
  511.     unbind-key FN>
  512.     bind-to-key i-shell        FN?
  513.     unbind-key FN@
  514.     bind-to-key quick-exit        FNA
  515.     unbind-key FNB
  516.     bind-to-key exit-emacs        FNC
  517.     bind-to-key execute-macro-2    FND
  518.     clear-message-line
  519. !endm
  520.  
  521. ;    Script Menu
  522.  
  523. 16    store-macro
  524.     save-window
  525.     1 next-window
  526.     beginning-of-file
  527.     search-forward "<<18"
  528.     next-line
  529.     1 redraw-display
  530.     restore-window
  531.     update-screen
  532.  
  533. ;    ***** Rebind the Function key group
  534.  
  535.     bind-to-key execute-file    FN;
  536.     bind-to-key execute-command-line FN<
  537.     bind-to-key execute-buffer    FN=
  538.     bind-to-key execute-named-command FN>
  539.     unbind-key FN?
  540.     unbind-key FN@
  541.     unbind-key FNA
  542.     unbind-key FNB
  543.     unbind-key FNC
  544.     bind-to-key execute-macro-2    FND
  545.     clear-message-line
  546. !endm
  547.  
  548. ;    File access Menu
  549.  
  550. 17    store-macro
  551.     save-window
  552.     1 next-window
  553.     beginning-of-file
  554.     search-forward "<<14"
  555.     next-line
  556.     1 redraw-display
  557.     restore-window
  558.     update-screen
  559.  
  560. ;    ***** Rebind the Function key group
  561.  
  562.     bind-to-key find-file        FN;
  563.     bind-to-key save-file        FN<
  564.     bind-to-key view-file        FN=
  565.     bind-to-key write-file        FN>
  566.     bind-to-key read-file        FN?
  567.     bind-to-key change-file-name    FN@
  568.     bind-to-key insert-file        FNA
  569.     unbind-key FNB
  570.     unbind-key FNC
  571.     bind-to-key execute-macro-2    FND
  572.     clear-message-line
  573. !endm
  574.  
  575. ;    Window Menu
  576.  
  577. 18    store-macro
  578.     save-window
  579.     1 next-window
  580.     beginning-of-file
  581.     search-forward "<<19"
  582.     next-line
  583.     1 redraw-display
  584.     restore-window
  585.     update-screen
  586.  
  587. ;    ***** Rebind the Function key group
  588.  
  589.     bind-to-key split-current-window FN;
  590.     bind-to-key delete-other-windows FN<
  591.     bind-to-key resize-window    FN=
  592.     bind-to-key delete-window    FN>
  593.     bind-to-key shrink-window    FN?
  594.     bind-to-key grow-window        FN@
  595.     bind-to-key next-window        FNA
  596.     bind-to-key previous-window    FNB
  597.     unbind-key FNC
  598.     bind-to-key execute-macro-2    FND
  599.     clear-message-line
  600. !endm
  601.  
  602. ;    key binding Menu
  603.  
  604. 19    store-macro
  605.     save-window
  606.     1 next-window
  607.     beginning-of-file
  608.     search-forward "<<15"
  609.     next-line
  610.     1 redraw-display
  611.     restore-window
  612.     update-screen
  613.  
  614. ;    ***** Rebind the Function key group
  615.  
  616.     bind-to-key bind-to-key        FN;
  617.     unbind-key FN<
  618.     bind-to-key unbind-key        FN=
  619.     unbind-key FN>
  620.     bind-to-key describe-key    FN?
  621.     unbind-key FN@
  622.     bind-to-key describe-bindings    FNA
  623.     unbind-key FNB
  624.     unbind-key FNC
  625.     bind-to-key execute-macro-2    FND
  626.     clear-message-line
  627. !endm
  628.  
  629.     clear-message-line
  630.